home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
U-Utilities
/
(c)u2.d64
/
program info.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
44 lines
10 REMPROGRAM LOAD INFORMATION
12 PRINT"[147]PROGRAM LOAD INFORMATION":XY$="0123456789ABCDEF"
13 PRINT"BY BOB SWIFT ":C=0
15 INPUT"PROGRAM NAME";F$:OPEN15,8,15
20 OPEN2,8,2,"0:"+F$+",P,R"
30 GET#2,L$:IFST<>0THENINPUT#15,E1,E$:PRINT"";E1;"[157], ";E$;" ":GOTO80
40 GET#2,H$
50 X$=H$:GOSUB 100:H=X*256
60 X$=L$:GOSUB 100:L=X
70 PRINT"LOAD FROM : $";:X=H+L:GOSUB130:GOTO150
80 CLOSE2,15
90 END
100 IF X$="" THEN X=0:RETURN
110 X=ASC(X$)
120 RETURN
130 X1=X:A$="":FORI=1TO4:Y=INT(X/16^(4-I)):A$=A$+MID$(XY$,Y+1,1)
140 X=X-Y*16^(4-I):NEXT:PRINTA$,X1:RETURN
150 GET#2,A$:C=C+1:IFST=0THEN150
160 CLOSE2,15:X=C+X1:PRINT" TO : $";:GOSUB130
170 PRINT"NUMBER OF BYTES :";C;""
200 REM: :
201 REM: PROGRAM LOAD INFORMATION :
202 REM: :
203 REM: BY :
204 REM: :
205 REM: BOB SWIFT :
206 REM: :
207 REM: :
208 REM: THIS PROGRAM WILL DISPLAY :
209 REM: THE FOLLOWING INFORMATION :
210 REM: ON THE SCREEN ABOUT ANY :
211 REM: PROGRAM ON DISK THAT YOU :
212 REM: CARE TO CHECK. :
213 REM: :
214 REM: INFORMATION: :
215 REM: :
216 REM: LOAD FROM: $HHHH DDDDD :
217 REM: TO: $HHHH DDDDD :
218 REM: :
219 REM: NUMBER OF BYTES: DDDDD :
220 REM: :
221 REM: :
222 REM: :